home *** CD-ROM | disk | FTP | other *** search
- C --- SIMPLE DEMO FORTRAN SOURCE PROGRAM ---
- C (SEE f_to_web.web FOR ITS web TRANSLATION)
-
- program main
- integer i
- real x
- common/test/ x,i
-
- C Initialize values.
- x = -3.14159e-11
- i = 1
-
- C Print results.
- call see
- end
-
- subroutine see
- integer i
- real x
- common/test x,i
-
- write(6,100) x,i
- 100 format('x = ',1pe10.2,', i = ',i2)
- return
- end
-
- integer function f(a,b,n)
- integer n
- real a(0:n-1),b(0:n-1)
-
- integer k
-
- do 10 k=0,n-1
- a(k) = k
- b(k) = k**2
- 10 continue
-
- f = n
- return
- end
-